home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 1 / CD Fun House (Wayzata Technology).iso / •The School House• / Math Factory™ Demo ••••• / Math Factory™ Demo •••••.rsrc / CODE_26.txt < prev    next >
Text File  |  1988-01-30  |  37KB  |  663 lines
  1. # near model CODE resource
  2. # jump table entries: 712-715 (4 of them)
  3. 00000000  0000 0000                ori.b      D0, 0x0
  4. export_89:
  5. 00000004  4E56 FCD8                link       A6, -0x0328
  6. 00000008  42AE FFF8                clr.l      [A6 - 0x8]
  7. 0000000C  42AE FFF4                clr.l      [A6 - 0xC]
  8. 00000010  42AE FFF0                clr.l      [A6 - 0x10]
  9. 00000014  42AE FFEC                clr.l      [A6 - 0x14]
  10. 00000018  42AE FFE8                clr.l      [A6 - 0x18]
  11. 0000001C  42AE FFE4                clr.l      [A6 - 0x1C]
  12. 00000020  42AE FFE0                clr.l      [A6 - 0x20]
  13. 00000024  302D E9C6                move.w     D0, [A5 - 0x163A]
  14. 00000028  E548                     lsl        D0.w, 2
  15. 0000002A  41ED E972                lea.l      A0, [A5 - 0x168E]
  16. 0000002E  2F30 0000                move.l     -[A7], [A0 + D0.w]
  17. 00000032  486D FB36                pea.l      [A5 - 0x4CA]
  18. 00000036  4EAD 00BA                jsr        [A5 + 0xBA /* export_19 */]
  19. 0000003A  7000                     moveq.l    D0, 0x00
  20. 0000003C  102D FB36                move.b     D0, [A5 - 0x4CA]
  21. 00000040  48C0                     ext.l      D0
  22. 00000042  2D40 FFE4                move.l     [A6 - 0x1C], D0
  23. 00000046  302D E9C6                move.w     D0, [A5 - 0x163A]
  24. 0000004A  E548                     lsl        D0.w, 2
  25. 0000004C  41ED E922                lea.l      A0, [A5 - 0x16DE]
  26. 00000050  2F30 0000                move.l     -[A7], [A0 + D0.w]
  27. 00000054  486D FA36                pea.l      [A5 - 0x5CA]
  28. 00000058  4EAD 00BA                jsr        [A5 + 0xBA /* export_19 */]
  29. 0000005C  7000                     moveq.l    D0, 0x00
  30. 0000005E  102D FA36                move.b     D0, [A5 - 0x5CA]
  31. 00000062  48C0                     ext.l      D0
  32. 00000064  2D40 FFE0                move.l     [A6 - 0x20], D0
  33. 00000068  302E 0008                move.w     D0, [A6 + 0x8]
  34. 0000006C  0C40 0001                cmpi.w     D0, 0x1
  35. 00000070  6600 0014                bne        +0x16 /* 00000086 */
  36. 00000074  2D6E FFE4 FFEC           move.l     [A6 - 0x14], [A6 - 0x1C]
  37. 0000007A  2D7C 0000 0001 FFF8      move.l     [A6 - 0x8], 0x1
  38. 00000082  6000 0094                bra        +0x96 /* 00000118 */
  39. label00000086:
  40. 00000086  0C40 0002                cmpi.w     D0, 0x2
  41. 0000008A  6600 0018                bne        +0x1A /* 000000A4 */
  42. 0000008E  202E FFE4                move.l     D0, [A6 - 0x1C]
  43. 00000092  5380                     subq.l     D0, 1
  44. 00000094  2D40 FFEC                move.l     [A6 - 0x14], D0
  45. 00000098  2D7C 0000 0002 FFF8      move.l     [A6 - 0x8], 0x2
  46. 000000A0  6000 0076                bra        +0x78 /* 00000118 */
  47. label000000A4:
  48. 000000A4  0C40 0003                cmpi.w     D0, 0x3
  49. 000000A8  6600 0018                bne        +0x1A /* 000000C2 */
  50. 000000AC  202E FFE4                move.l     D0, [A6 - 0x1C]
  51. 000000B0  5580                     subq.l     D0, 2
  52. 000000B2  2D40 FFEC                move.l     [A6 - 0x14], D0
  53. 000000B6  2D7C 0000 0003 FFF8      move.l     [A6 - 0x8], 0x3
  54. 000000BE  6000 0058                bra        +0x5A /* 00000118 */
  55. label000000C2:
  56. 000000C2  0C40 0004                cmpi.w     D0, 0x4
  57. 000000C6  6600 0018                bne        +0x1A /* 000000E0 */
  58. 000000CA  202E FFE4                move.l     D0, [A6 - 0x1C]
  59. 000000CE  5780                     subq.l     D0, 3
  60. 000000D0  2D40 FFEC                move.l     [A6 - 0x14], D0
  61. 000000D4  2D7C 0000 0004 FFF8      move.l     [A6 - 0x8], 0x4
  62. 000000DC  6000 003A                bra        +0x3C /* 00000118 */
  63. label000000E0:
  64. 000000E0  0C40 0005                cmpi.w     D0, 0x5
  65. 000000E4  6600 0018                bne        +0x1A /* 000000FE */
  66. 000000E8  202E FFE4                move.l     D0, [A6 - 0x1C]
  67. 000000EC  5980                     subq.l     D0, 4
  68. 000000EE  2D40 FFEC                move.l     [A6 - 0x14], D0
  69. 000000F2  2D7C 0000 0005 FFF8      move.l     [A6 - 0x8], 0x5
  70. 000000FA  6000 001C                bra        +0x1E /* 00000118 */
  71. label000000FE:
  72. 000000FE  0C40 0006                cmpi.w     D0, 0x6
  73. 00000102  6600 0014                bne        +0x16 /* 00000118 */
  74. 00000106  202E FFE4                move.l     D0, [A6 - 0x1C]
  75. 0000010A  5B80                     subq.l     D0, 5
  76. 0000010C  2D40 FFEC                move.l     [A6 - 0x14], D0
  77. 00000110  2D7C 0000 0006 FFF8      move.l     [A6 - 0x8], 0x6
  78. label00000118:
  79. 00000118  302E 0008                move.w     D0, [A6 + 0x8]
  80. 0000011C  0C40 0001                cmpi.w     D0, 0x1
  81. 00000120  6600 000C                bne        +0xE /* 0000012E */
  82. 00000124  2D6E FFE0 FFE8           move.l     [A6 - 0x18], [A6 - 0x20]
  83. 0000012A  6000 006C                bra        +0x6E /* 00000198 */
  84. label0000012E:
  85. 0000012E  0C40 0002                cmpi.w     D0, 0x2
  86. 00000132  6600 0010                bne        +0x12 /* 00000144 */
  87. 00000136  202E FFE0                move.l     D0, [A6 - 0x20]
  88. 0000013A  5380                     subq.l     D0, 1
  89. 0000013C  2D40 FFE8                move.l     [A6 - 0x18], D0
  90. 00000140  6000 0056                bra        +0x58 /* 00000198 */
  91. label00000144:
  92. 00000144  0C40 0003                cmpi.w     D0, 0x3
  93. 00000148  6600 0010                bne        +0x12 /* 0000015A */
  94. 0000014C  202E FFE0                move.l     D0, [A6 - 0x20]
  95. 00000150  5580                     subq.l     D0, 2
  96. 00000152  2D40 FFE8                move.l     [A6 - 0x18], D0
  97. 00000156  6000 0040                bra        +0x42 /* 00000198 */
  98. label0000015A:
  99. 0000015A  0C40 0004                cmpi.w     D0, 0x4
  100. 0000015E  6600 0010                bne        +0x12 /* 00000170 */
  101. 00000162  202E FFE0                move.l     D0, [A6 - 0x20]
  102. 00000166  5780                     subq.l     D0, 3
  103. 00000168  2D40 FFE8                move.l     [A6 - 0x18], D0
  104. 0000016C  6000 002A                bra        +0x2C /* 00000198 */
  105. label00000170:
  106. 00000170  0C40 0005                cmpi.w     D0, 0x5
  107. 00000174  6600 0010                bne        +0x12 /* 00000186 */
  108. 00000178  202E FFE0                move.l     D0, [A6 - 0x20]
  109. 0000017C  5980                     subq.l     D0, 4
  110. 0000017E  2D40 FFE8                move.l     [A6 - 0x18], D0
  111. 00000182  6000 0014                bra        +0x16 /* 00000198 */
  112. label00000186:
  113. 00000186  0C40 0006                cmpi.w     D0, 0x6
  114. 0000018A  6600 000C                bne        +0xE /* 00000198 */
  115. 0000018E  202E FFE0                move.l     D0, [A6 - 0x20]
  116. 00000192  5B80                     subq.l     D0, 5
  117. 00000194  2D40 FFE8                move.l     [A6 - 0x18], D0
  118. label00000198:
  119. 00000198  202E FFEC                move.l     D0, [A6 - 0x14]
  120. 0000019C  7200                     moveq.l    D1, 0x00
  121. 0000019E  41ED FB36                lea.l      A0, [A5 - 0x4CA]
  122. 000001A2  1230 0000                move.b     D1, [A0 + D0.w]
  123. 000001A6  0241 00FF                andi.w     D1, 0xFF
  124. 000001AA  0041 0100                ori.w      D1, 0x100
  125. 000001AE  3D41 FCD8                move.w     [A6 - 0x328], D1
  126. 000001B2  486E FCD8                pea.l      [A6 - 0x328]
  127. 000001B6  486E FEE0                pea.l      [A6 - 0x120]
  128. 000001BA  3F3C 00FF                move.w     -[A7], 0xFF
  129. 000001BE  4EAD 01BA                jsr        [A5 + 0x1BA /* export_51 */]
  130. 000001C2  486E FEE0                pea.l      [A6 - 0x120]
  131. 000001C6  486E FFF4                pea.l      [A6 - 0xC]
  132. 000001CA  4EAD 00B2                jsr        [A5 + 0xB2 /* export_18 */]
  133. 000001CE  4A2D A513                tst.b      [A5 - 0x5AED]
  134. 000001D2  6700 000C                beq        +0xE /* 000001E0 */
  135. 000001D6  202E FFF4                move.l     D0, [A6 - 0xC]
  136. 000001DA  5280                     addq.l     D0, 1
  137. 000001DC  2D40 FFF4                move.l     [A6 - 0xC], D0
  138. label000001E0:
  139. 000001E0  202E FFE8                move.l     D0, [A6 - 0x18]
  140. 000001E4  7200                     moveq.l    D1, 0x00
  141. 000001E6  41ED FA36                lea.l      A0, [A5 - 0x5CA]
  142. 000001EA  1230 0000                move.b     D1, [A0 + D0.w]
  143. 000001EE  0241 00FF                andi.w     D1, 0xFF
  144. 000001F2  0041 0100                ori.w      D1, 0x100
  145. 000001F6  3D41 FCD8                move.w     [A6 - 0x328], D1
  146. 000001FA  486E FCD8                pea.l      [A6 - 0x328]
  147. 000001FE  486E FDE0                pea.l      [A6 - 0x220]
  148. 00000202  3F3C 00FF                move.w     -[A7], 0xFF
  149. 00000206  4EAD 01BA                jsr        [A5 + 0x1BA /* export_51 */]
  150. 0000020A  4AAE FFE8                tst.l      [A6 - 0x18]
  151. 0000020E  6600 000A                bne        +0xC /* 0000021A */
  152. 00000212  42AE FFF0                clr.l      [A6 - 0x10]
  153. 00000216  6000 000E                bra        +0x10 /* 00000226 */
  154. label0000021A:
  155. 0000021A  486E FDE0                pea.l      [A6 - 0x220]
  156. 0000021E  486E FFF0                pea.l      [A6 - 0x10]
  157. 00000222  4EAD 00B2                jsr        [A5 + 0xB2 /* export_18 */]
  158. label00000226:
  159. 00000226  202E FFF4                move.l     D0, [A6 - 0xC]
  160. 0000022A  D0AE FFF0                add.l      D0, [A6 - 0x10]
  161. 0000022E  0C80 0000 0009           cmpi.l     D0, 0x9 /* '\t' */
  162. 00000234  5EC0                     sgt        D0
  163. 00000236  4400                     neg.b      D0
  164. 00000238  222E FFF8                move.l     D1, [A6 - 0x8]
  165. 0000023C  B2AE FFE4                cmp.l      D1, [A6 - 0x1C]
  166. 00000240  5DC1                     slt        D1
  167. 00000242  4401                     neg.b      D1
  168. 00000244  C001                     and.b      D0, D1
  169. 00000246  6700 005A                beq        +0x5C /* 000002A2 */
  170. 0000024A  302E 0008                move.w     D0, [A6 + 0x8]
  171. 0000024E  E748                     lsl        D0.w, 3
  172. 00000250  41ED E336                lea.l      A0, [A5 - 0x1CCA]
  173. 00000254  3230 0000                move.w     D1, [A0 + D0.w]
  174. 00000258  0441 0014                subi.w     D1, 0x14
  175. 0000025C  3F01                     move.w     -[A7], D1
  176. 0000025E  302E 0008                move.w     D0, [A6 + 0x8]
  177. 00000262  E748                     lsl        D0.w, 3
  178. 00000264  41ED E338                lea.l      A0, [A5 - 0x1CC8]
  179. 00000268  3230 0000                move.w     D1, [A0 + D0.w]
  180. 0000026C  0441 0045                subi.w     D1, 0x45 /* 'E' */
  181. 00000270  3F01                     move.w     -[A7], D1
  182. 00000272  A893                     syscall    MoveTo
  183. 00000274  3F3C 0014                move.w     -[A7], 0x14
  184. 00000278  A887                     syscall    TextFont
  185. 0000027A  3F3C 000C                move.w     -[A7], 0xC
  186. 0000027E  A88A                     syscall    TextSize
  187. 00000280  3D7C 0031 FFFC           move.w     [A6 - 0x4], 0x31 /* '1' */
  188. 00000286  3F2E FFFC                move.w     -[A7], [A6 - 0x4]
  189. 0000028A  A883                     syscall    DrawChar
  190. 0000028C  3F3C 000E                move.w     -[A7], 0xE
  191. 00000290  A887                     syscall    TextFont
  192. 00000292  3F3C 0018                move.w     -[A7], 0x18
  193. 00000296  A88A                     syscall    TextSize
  194. 00000298  1B7C 0001 A513           move.b     [A5 - 0x5AED], 0x1
  195. 0000029E  6000 0006                bra        +0x8 /* 000002A6 */
  196. label000002A2:
  197. 000002A2  422D A513                clr.b      [A5 - 0x5AED]
  198. label000002A6:
  199. 000002A6  4E5E                     unlink     A6
  200. 000002A8  205F                     movea.l    A0, [A7]+
  201. 000002AA  548F                     addq.l     A7, 2
  202. 000002AC  4ED0                     jmp        [A0]
  203. 000002AE  0000 0000                ori.b      D0, 0x0
  204. export_90:
  205. 000002B2  4E56 FFF0                link       A6, -0x0010
  206. 000002B6  0C6D 0078 FA34           cmpi.w     [A5 - 0x5CC], 0x78 /* 'x' */
  207. 000002BC  6600 00EC                bne        +0xEE /* 000003AA */
  208. 000002C0  302D E9C6                move.w     D0, [A5 - 0x163A]
  209. 000002C4  C1FC 0016                muls.w     D0, 0x16
  210. 000002C8  7200                     moveq.l    D1, 0x00
  211. 000002CA  41ED F41A                lea.l      A0, [A5 - 0xBE6]
  212. 000002CE  1230 0000                move.b     D1, [A0 + D0.w]
  213. 000002D2  3D41 FFFE                move.w     [A6 - 0x2], D1
  214. 000002D6  302D E9C6                move.w     D0, [A5 - 0x163A]
  215. 000002DA  C1FC 0016                muls.w     D0, 0x16
  216. 000002DE  7200                     moveq.l    D1, 0x00
  217. 000002E0  41ED EE16                lea.l      A0, [A5 - 0x11EA]
  218. 000002E4  1230 0000                move.b     D1, [A0 + D0.w]
  219. 000002E8  3D41 FFFC                move.w     [A6 - 0x4], D1
  220. 000002EC  0C6D 0078 FA34           cmpi.w     [A5 - 0x5CC], 0x78 /* 'x' */
  221. 000002F2  57C0                     seq        D0
  222. 000002F4  4400                     neg.b      D0
  223. 000002F6  0C6E 0001 FFFC           cmpi.w     [A6 - 0x4], 0x1
  224. 000002FC  5EC1                     sgt        D1
  225. 000002FE  4401                     neg.b      D1
  226. 00000300  C001                     and.b      D0, D1
  227. 00000302  6700 00A6                beq        +0xA8 /* 000003AA */
  228. 00000306  302E FFFC                move.w     D0, [A6 - 0x4]
  229. 0000030A  0C40 0002                cmpi.w     D0, 0x2
  230. 0000030E  6600 000C                bne        +0xE /* 0000031C */
  231. 00000312  3D7C 00CA FFFA           move.w     [A6 - 0x6], 0xCA
  232. 00000318  6000 0010                bra        +0x12 /* 0000032A */
  233. label0000031C:
  234. 0000031C  0C40 0003                cmpi.w     D0, 0x3
  235. 00000320  6600 0008                bne        +0xA /* 0000032A */
  236. 00000324  3D7C 00E0 FFFA           move.w     [A6 - 0x6], 0xE0
  237. label0000032A:
  238. 0000032A  302E 0008                move.w     D0, [A6 + 0x8]
  239. 0000032E  E748                     lsl        D0.w, 3
  240. 00000330  41ED E338                lea.l      A0, [A5 - 0x1CC8]
  241. 00000334  3230 0000                move.w     D1, [A0 + D0.w]
  242. 00000338  B26E FFFA                cmp.w      D1, [A6 - 0x6]
  243. 0000033C  57C0                     seq        D0
  244. 0000033E  4400                     neg.b      D0
  245. 00000340  4A2D E2CB                tst.b      [A5 - 0x1D35]
  246. 00000344  57C1                     seq        D1
  247. 00000346  4401                     neg.b      D1
  248. 00000348  C001                     and.b      D0, D1
  249. 0000034A  6700 005E                beq        +0x60 /* 000003AA */
  250. 0000034E  1B7C 0001 E2CB           move.b     [A5 - 0x1D35], 0x1
  251. 00000354  3F3C 0002                move.w     -[A7], 0x2
  252. 00000358  3F3C 0002                move.w     -[A7], 0x2
  253. 0000035C  A89B                     syscall    PenSize
  254. 0000035E  3F3C 000B                move.w     -[A7], 0xB
  255. 00000362  A89C                     syscall    PenMode
  256. 00000364  302E 0008                move.w     D0, [A6 + 0x8]
  257. 00000368  5340                     subq.w     D0, 1
  258. 0000036A  E748                     lsl        D0.w, 3
  259. 0000036C  41ED E336                lea.l      A0, [A5 - 0x1CCA]
  260. 00000370  3F30 0000                move.w     -[A7], [A0 + D0.w]
  261. 00000374  302E 0008                move.w     D0, [A6 + 0x8]
  262. 00000378  5340                     subq.w     D0, 1
  263. 0000037A  E748                     lsl        D0.w, 3
  264. 0000037C  41ED E338                lea.l      A0, [A5 - 0x1CC8]
  265. 00000380  3F30 0000                move.w     -[A7], [A0 + D0.w]
  266. 00000384  A893                     syscall    MoveTo
  267. 00000386  302E FFFE                move.w     D0, [A6 - 0x2]
  268. 0000038A  5840                     addq.w     D0, 4
  269. 0000038C  C1FC 0014                muls.w     D0, 0x14
  270. 00000390  D06D E4CE                add.w      D0, [A5 - 0x1B32]
  271. 00000394  3F00                     move.w     -[A7], D0
  272. 00000396  302E 0008                move.w     D0, [A6 + 0x8]
  273. 0000039A  5340                     subq.w     D0, 1
  274. 0000039C  E748                     lsl        D0.w, 3
  275. 0000039E  41ED E338                lea.l      A0, [A5 - 0x1CC8]
  276. 000003A2  3F30 0000                move.w     -[A7], [A0 + D0.w]
  277. 000003A6  A891                     syscall    LineTo
  278. 000003A8  A89E                     syscall    PenNormal
  279. label000003AA:
  280. 000003AA  4E5E                     unlink     A6
  281. 000003AC  205F                     movea.l    A0, [A7]+
  282. 000003AE  548F                     addq.l     A7, 2
  283. 000003B0  4ED0                     jmp        [A0]
  284. 000003B2  0000 0000                ori.b      D0, 0x0
  285. export_91:
  286. 000003B6  4E56 FFFC                link       A6, -0x0004
  287. 000003BA  426E FFFE                clr.w      [A6 - 0x2]
  288. 000003BE  302E 0008                move.w     D0, [A6 + 0x8]
  289. 000003C2  E748                     lsl        D0.w, 3
  290. 000003C4  41ED E338                lea.l      A0, [A5 - 0x1CC8]
  291. 000003C8  0C70 0088 0000           cmpi.w     [A0 + D0.w], 0x88
  292. 000003CE  57C0                     seq        D0
  293. 000003D0  4400                     neg.b      D0
  294. 000003D2  4A2D E2CB                tst.b      [A5 - 0x1D35]
  295. 000003D6  57C1                     seq        D1
  296. 000003D8  4401                     neg.b      D1
  297. 000003DA  C001                     and.b      D0, D1
  298. 000003DC  6700 00A2                beq        +0xA4 /* 00000480 */
  299. 000003E0  1B7C 0001 E2CB           move.b     [A5 - 0x1D35], 0x1
  300. 000003E6  2F07                     move.l     -[A7], D7
  301. 000003E8  7001                     moveq.l    D0, 0x01
  302. 000003EA  3E2D E2D6                move.w     D7, [A5 - 0x1D2A]
  303. 000003EE  9E40                     sub.w      D7, D0
  304. 000003F0  6D00 002C                blt        +0x2E /* 0000041E */
  305. 000003F4  3D40 FFFC                move.w     [A6 - 0x4], D0
  306. label000003F8:
  307. 000003F8  302E FFFC                move.w     D0, [A6 - 0x4]
  308. 000003FC  E748                     lsl        D0.w, 3
  309. 000003FE  41ED E338                lea.l      A0, [A5 - 0x1CC8]
  310. 00000402  0C70 0072 0000           cmpi.w     [A0 + D0.w], 0x72 /* 'r' */
  311. 00000408  6600 000C                bne        +0xE /* 00000416 */
  312. 0000040C  302E FFFE                move.w     D0, [A6 - 0x2]
  313. 00000410  5240                     addq.w     D0, 1
  314. 00000412  3D40 FFFE                move.w     [A6 - 0x2], D0
  315. label00000416:
  316. 00000416  526E FFFC                addq.w     [A6 - 0x4], 1
  317. 0000041A  51CF FFDC                dbf        D7, -0x26 /* 000003F8 */
  318. label0000041E:
  319. 0000041E  2E1F                     move.l     D7, [A7]+
  320. 00000420  3F3C 0002                move.w     -[A7], 0x2
  321. 00000424  3F3C 0002                move.w     -[A7], 0x2
  322. 00000428  A89B                     syscall    PenSize
  323. 0000042A  3F3C 000B                move.w     -[A7], 0xB
  324. 0000042E  A89C                     syscall    PenMode
  325. 00000430  302E 0008                move.w     D0, [A6 + 0x8]
  326. 00000434  5340                     subq.w     D0, 1
  327. 00000436  E748                     lsl        D0.w, 3
  328. 00000438  41ED E336                lea.l      A0, [A5 - 0x1CCA]
  329. 0000043C  3F30 0000                move.w     -[A7], [A0 + D0.w]
  330. 00000440  302E 0008                move.w     D0, [A6 + 0x8]
  331. 00000444  5340                     subq.w     D0, 1
  332. 00000446  E748                     lsl        D0.w, 3
  333. 00000448  41ED E338                lea.l      A0, [A5 - 0x1CC8]
  334. 0000044C  3F30 0000                move.w     -[A7], [A0 + D0.w]
  335. 00000450  A893                     syscall    MoveTo
  336. 00000452  302E 0008                move.w     D0, [A6 + 0x8]
  337. 00000456  5340                     subq.w     D0, 1
  338. 00000458  E748                     lsl        D0.w, 3
  339. 0000045A  322E FFFE                move.w     D1, [A6 - 0x2]
  340. 0000045E  C3FC 0014                muls.w     D1, 0x14
  341. 00000462  41ED E336                lea.l      A0, [A5 - 0x1CCA]
  342. 00000466  D270 0000                add.w      D1, [A0 + D0.w]
  343. 0000046A  3F01                     move.w     -[A7], D1
  344. 0000046C  302E 0008                move.w     D0, [A6 + 0x8]
  345. 00000470  5340                     subq.w     D0, 1
  346. 00000472  E748                     lsl        D0.w, 3
  347. 00000474  41ED E338                lea.l      A0, [A5 - 0x1CC8]
  348. 00000478  3F30 0000                move.w     -[A7], [A0 + D0.w]
  349. 0000047C  A891                     syscall    LineTo
  350. 0000047E  A89E                     syscall    PenNormal
  351. label00000480:
  352. 00000480  302E 0008                move.w     D0, [A6 + 0x8]
  353. 00000484  E748                     lsl        D0.w, 3
  354. 00000486  41ED E338                lea.l      A0, [A5 - 0x1CC8]
  355. 0000048A  0C70 00B4 0000           cmpi.w     [A0 + D0.w], 0xB4
  356. 00000490  57C0                     seq        D0
  357. 00000492  4400                     neg.b      D0
  358. 00000494  0C2D 0001 E2CB           cmpi.b     [A5 - 0x1D35], 0x1
  359. 0000049A  57C1                     seq        D1
  360. 0000049C  4401                     neg.b      D1
  361. 0000049E  C001                     and.b      D0, D1
  362. 000004A0  6700 00A0                beq        +0xA2 /* 00000542 */
  363. 000004A4  422D E2CB                clr.b      [A5 - 0x1D35]
  364. 000004A8  2F07                     move.l     -[A7], D7
  365. 000004AA  7001                     moveq.l    D0, 0x01
  366. 000004AC  3E2D E2D6                move.w     D7, [A5 - 0x1D2A]
  367. 000004B0  9E40                     sub.w      D7, D0
  368. 000004B2  6D00 002C                blt        +0x2E /* 000004E0 */
  369. 000004B6  3D40 FFFC                move.w     [A6 - 0x4], D0
  370. label000004BA:
  371. 000004BA  302E FFFC                move.w     D0, [A6 - 0x4]
  372. 000004BE  E748                     lsl        D0.w, 3
  373. 000004C0  41ED E338                lea.l      A0, [A5 - 0x1CC8]
  374. 000004C4  0C70 009E 0000           cmpi.w     [A0 + D0.w], 0x9E
  375. 000004CA  6600 000C                bne        +0xE /* 000004D8 */
  376. 000004CE  302E FFFE                move.w     D0, [A6 - 0x2]
  377. 000004D2  5240                     addq.w     D0, 1
  378. 000004D4  3D40 FFFE                move.w     [A6 - 0x2], D0
  379. label000004D8:
  380. 000004D8  526E FFFC                addq.w     [A6 - 0x4], 1
  381. 000004DC  51CF FFDC                dbf        D7, -0x26 /* 000004BA */
  382. label000004E0:
  383. 000004E0  2E1F                     move.l     D7, [A7]+
  384. 000004E2  3F3C 0002                move.w     -[A7], 0x2
  385. 000004E6  3F3C 0002                move.w     -[A7], 0x2
  386. 000004EA  A89B                     syscall    PenSize
  387. 000004EC  3F3C 000B                move.w     -[A7], 0xB
  388. 000004F0  A89C                     syscall    PenMode
  389. 000004F2  302E 0008                move.w     D0, [A6 + 0x8]
  390. 000004F6  5340                     subq.w     D0, 1
  391. 000004F8  E748                     lsl        D0.w, 3
  392. 000004FA  41ED E336                lea.l      A0, [A5 - 0x1CCA]
  393. 000004FE  3F30 0000                move.w     -[A7], [A0 + D0.w]
  394. 00000502  302E 0008                move.w     D0, [A6 + 0x8]
  395. 00000506  5340                     subq.w     D0, 1
  396. 00000508  E748                     lsl        D0.w, 3
  397. 0000050A  41ED E338                lea.l      A0, [A5 - 0x1CC8]
  398. 0000050E  3F30 0000                move.w     -[A7], [A0 + D0.w]
  399. 00000512  A893                     syscall    MoveTo
  400. 00000514  302E 0008                move.w     D0, [A6 + 0x8]
  401. 00000518  5340                     subq.w     D0, 1
  402. 0000051A  E748                     lsl        D0.w, 3
  403. 0000051C  322E FFFE                move.w     D1, [A6 - 0x2]
  404. 00000520  C3FC 0014                muls.w     D1, 0x14
  405. 00000524  41ED E336                lea.l      A0, [A5 - 0x1CCA]
  406. 00000528  D270 0000                add.w      D1, [A0 + D0.w]
  407. 0000052C  3F01                     move.w     -[A7], D1
  408. 0000052E  302E 0008                move.w     D0, [A6 + 0x8]
  409. 00000532  5340                     subq.w     D0, 1
  410. 00000534  E748                     lsl        D0.w, 3
  411. 00000536  41ED E338                lea.l      A0, [A5 - 0x1CC8]
  412. 0000053A  3F30 0000                move.w     -[A7], [A0 + D0.w]
  413. 0000053E  A891                     syscall    LineTo
  414. 00000540  A89E                     syscall    PenNormal
  415. label00000542:
  416. 00000542  302E 0008                move.w     D0, [A6 + 0x8]
  417. 00000546  E748                     lsl        D0.w, 3
  418. 00000548  41ED E338                lea.l      A0, [A5 - 0x1CC8]
  419. 0000054C  0C70 00E0 0000           cmpi.w     [A0 + D0.w], 0xE0
  420. 00000552  57C0                     seq        D0
  421. 00000554  4400                     neg.b      D0
  422. 00000556  4A2D E2CB                tst.b      [A5 - 0x1D35]
  423. 0000055A  57C1                     seq        D1
  424. 0000055C  4401                     neg.b      D1
  425. 0000055E  C001                     and.b      D0, D1
  426. 00000560  6700 00A2                beq        +0xA4 /* 00000604 */
  427. 00000564  1B7C 0001 E2CB           move.b     [A5 - 0x1D35], 0x1
  428. 0000056A  2F07                     move.l     -[A7], D7
  429. 0000056C  7001                     moveq.l    D0, 0x01
  430. 0000056E  3E2D E2D6                move.w     D7, [A5 - 0x1D2A]
  431. 00000572  9E40                     sub.w      D7, D0
  432. 00000574  6D00 002C                blt        +0x2E /* 000005A2 */
  433. 00000578  3D40 FFFC                move.w     [A6 - 0x4], D0
  434. label0000057C:
  435. 0000057C  302E FFFC                move.w     D0, [A6 - 0x4]
  436. 00000580  E748                     lsl        D0.w, 3
  437. 00000582  41ED E338                lea.l      A0, [A5 - 0x1CC8]
  438. 00000586  0C70 00CA 0000           cmpi.w     [A0 + D0.w], 0xCA
  439. 0000058C  6600 000C                bne        +0xE /* 0000059A */
  440. 00000590  302E FFFE                move.w     D0, [A6 - 0x2]
  441. 00000594  5240                     addq.w     D0, 1
  442. 00000596  3D40 FFFE                move.w     [A6 - 0x2], D0
  443. label0000059A:
  444. 0000059A  526E FFFC                addq.w     [A6 - 0x4], 1
  445. 0000059E  51CF FFDC                dbf        D7, -0x26 /* 0000057C */
  446. label000005A2:
  447. 000005A2  2E1F                     move.l     D7, [A7]+
  448. 000005A4  3F3C 0002                move.w     -[A7], 0x2
  449. 000005A8  3F3C 0002                move.w     -[A7], 0x2
  450. 000005AC  A89B                     syscall    PenSize
  451. 000005AE  3F3C 000B                move.w     -[A7], 0xB
  452. 000005B2  A89C                     syscall    PenMode
  453. 000005B4  302E 0008                move.w     D0, [A6 + 0x8]
  454. 000005B8  5340                     subq.w     D0, 1
  455. 000005BA  E748                     lsl        D0.w, 3
  456. 000005BC  41ED E336                lea.l      A0, [A5 - 0x1CCA]
  457. 000005C0  3F30 0000                move.w     -[A7], [A0 + D0.w]
  458. 000005C4  302E 0008                move.w     D0, [A6 + 0x8]
  459. 000005C8  5340                     subq.w     D0, 1
  460. 000005CA  E748                     lsl        D0.w, 3
  461. 000005CC  41ED E338                lea.l      A0, [A5 - 0x1CC8]
  462. 000005D0  3F30 0000                move.w     -[A7], [A0 + D0.w]
  463. 000005D4  A893                     syscall    MoveTo
  464. 000005D6  302E 0008                move.w     D0, [A6 + 0x8]
  465. 000005DA  5340                     subq.w     D0, 1
  466. 000005DC  E748                     lsl        D0.w, 3
  467. 000005DE  322E FFFE                move.w     D1, [A6 - 0x2]
  468. 000005E2  C3FC 0014                muls.w     D1, 0x14
  469. 000005E6  41ED E336                lea.l      A0, [A5 - 0x1CCA]
  470. 000005EA  D270 0000                add.w      D1, [A0 + D0.w]
  471. 000005EE  3F01                     move.w     -[A7], D1
  472. 000005F0  302E 0008                move.w     D0, [A6 + 0x8]
  473. 000005F4  5340                     subq.w     D0, 1
  474. 000005F6  E748                     lsl        D0.w, 3
  475. 000005F8  41ED E338                lea.l      A0, [A5 - 0x1CC8]
  476. 000005FC  3F30 0000                move.w     -[A7], [A0 + D0.w]
  477. 00000600  A891                     syscall    LineTo
  478. 00000602  A89E                     syscall    PenNormal
  479. label00000604:
  480. 00000604  4E5E                     unlink     A6
  481. 00000606  205F                     movea.l    A0, [A7]+
  482. 00000608  548F                     addq.l     A7, 2
  483. 0000060A  4ED0                     jmp        [A0]
  484. export_92:
  485. 0000060C  4E56 0000                link       A6, 0
  486. 00000610  48E7 1000                movem.l    -[A7], D3
  487. 00000614  302E 0008                move.w     D0, [A6 + 0x8]
  488. 00000618  E348                     lsl        D0.w, 1
  489. 0000061A  41ED E2D6                lea.l      A0, [A5 - 0x1D2A]
  490. 0000061E  0C70 003D 0000           cmpi.w     [A0 + D0.w], 0x3D /* '=' */
  491. 00000624  6600 01F0                bne        +0x1F2 /* 00000816 */
  492. 00000628  4A2D E2CA                tst.b      [A5 - 0x1D36]
  493. 0000062C  6700 0136                beq        +0x138 /* 00000764 */
  494. 00000630  3F3C 0002                move.w     -[A7], 0x2
  495. 00000634  3F3C 0002                move.w     -[A7], 0x2
  496. 00000638  A89B                     syscall    PenSize
  497. 0000063A  3F3C 000B                move.w     -[A7], 0xB
  498. 0000063E  A89C                     syscall    PenMode
  499. 00000640  302E 0008                move.w     D0, [A6 + 0x8]
  500. 00000644  5440                     addq.w     D0, 2
  501. 00000646  E748                     lsl        D0.w, 3
  502. 00000648  41ED E336                lea.l      A0, [A5 - 0x1CCA]
  503. 0000064C  3F30 0000                move.w     -[A7], [A0 + D0.w]
  504. 00000650  302E 0008                move.w     D0, [A6 + 0x8]
  505. 00000654  5440                     addq.w     D0, 2
  506. 00000656  E748                     lsl        D0.w, 3
  507. 00000658  41ED E338                lea.l      A0, [A5 - 0x1CC8]
  508. 0000065C  3230 0000                move.w     D1, [A0 + D0.w]
  509. 00000660  0441 0016                subi.w     D1, 0x16
  510. 00000664  3F01                     move.w     -[A7], D1
  511. 00000666  A893                     syscall    MoveTo
  512. 00000668  302E 0008                move.w     D0, [A6 + 0x8]
  513. 0000066C  5440                     addq.w     D0, 2
  514. 0000066E  E748                     lsl        D0.w, 3
  515. 00000670  322E 0008                move.w     D1, [A6 + 0x8]
  516. 00000674  5641                     addq.w     D1, 3
  517. 00000676  E749                     lsl        D1.w, 3
  518. 00000678  41ED E338                lea.l      A0, [A5 - 0x1CC8]
  519. 0000067C  3430 0000                move.w     D2, [A0 + D0.w]
  520. 00000680  41ED E338                lea.l      A0, [A5 - 0x1CC8]
  521. 00000684  B470 1000                cmp.w      D2, [A0 + D1.w]
  522. 00000688  57C0                     seq        D0
  523. 0000068A  4400                     neg.b      D0
  524. 0000068C  322E 0008                move.w     D1, [A6 + 0x8]
  525. 00000690  5641                     addq.w     D1, 3
  526. 00000692  E749                     lsl        D1.w, 3
  527. 00000694  342E 0008                move.w     D2, [A6 + 0x8]
  528. 00000698  5842                     addq.w     D2, 4
  529. 0000069A  E74A                     lsl        D2.w, 3
  530. 0000069C  41ED E338                lea.l      A0, [A5 - 0x1CC8]
  531. 000006A0  3630 1000                move.w     D3, [A0 + D1.w]
  532. 000006A4  41ED E338                lea.l      A0, [A5 - 0x1CC8]
  533. 000006A8  B670 2000                cmp.w      D3, [A0 + D2.w]
  534. 000006AC  57C1                     seq        D1
  535. 000006AE  4401                     neg.b      D1
  536. 000006B0  C001                     and.b      D0, D1
  537. 000006B2  6700 0032                beq        +0x34 /* 000006E6 */
  538. 000006B6  302E 0008                move.w     D0, [A6 + 0x8]
  539. 000006BA  5840                     addq.w     D0, 4
  540. 000006BC  E748                     lsl        D0.w, 3
  541. 000006BE  41ED E33A                lea.l      A0, [A5 - 0x1CC6]
  542. 000006C2  3230 0000                move.w     D1, [A0 + D0.w]
  543. 000006C6  5541                     subq.w     D1, 2
  544. 000006C8  3F01                     move.w     -[A7], D1
  545. 000006CA  302E 0008                move.w     D0, [A6 + 0x8]
  546. 000006CE  5840                     addq.w     D0, 4
  547. 000006D0  E748                     lsl        D0.w, 3
  548. 000006D2  41ED E338                lea.l      A0, [A5 - 0x1CC8]
  549. 000006D6  3230 0000                move.w     D1, [A0 + D0.w]
  550. 000006DA  0441 0016                subi.w     D1, 0x16
  551. 000006DE  3F01                     move.w     -[A7], D1
  552. 000006E0  A891                     syscall    LineTo
  553. 000006E2  6000 007A                bra        +0x7C /* 0000075E */
  554. label000006E6:
  555. 000006E6  302E 0008                move.w     D0, [A6 + 0x8]
  556. 000006EA  5440                     addq.w     D0, 2
  557. 000006EC  E748                     lsl        D0.w, 3
  558. 000006EE  322E 0008                move.w     D1, [A6 + 0x8]
  559. 000006F2  5641                     addq.w     D1, 3
  560. 000006F4  E749                     lsl        D1.w, 3
  561. 000006F6  41ED E338                lea.l      A0, [A5 - 0x1CC8]
  562. 000006FA  3430 0000                move.w     D2, [A0 + D0.w]
  563. 000006FE  41ED E338                lea.l      A0, [A5 - 0x1CC8]
  564. 00000702  B470 1000                cmp.w      D2, [A0 + D1.w]
  565. 00000706  6600 002E                bne        +0x30 /* 00000736 */
  566. 0000070A  302E 0008                move.w     D0, [A6 + 0x8]
  567. 0000070E  5640                     addq.w     D0, 3
  568. 00000710  E748                     lsl        D0.w, 3
  569. 00000712  41ED E33A                lea.l      A0, [A5 - 0x1CC6]
  570. 00000716  3F30 0000                move.w     -[A7], [A0 + D0.w]
  571. 0000071A  302E 0008                move.w     D0, [A6 + 0x8]
  572. 0000071E  5640                     addq.w     D0, 3
  573. 00000720  E748                     lsl        D0.w, 3
  574. 00000722  41ED E338                lea.l      A0, [A5 - 0x1CC8]
  575. 00000726  3230 0000                move.w     D1, [A0 + D0.w]
  576. 0000072A  0441 0016                subi.w     D1, 0x16
  577. 0000072E  3F01                     move.w     -[A7], D1
  578. 00000730  A891                     syscall    LineTo
  579. 00000732  6000 002A                bra        +0x2C /* 0000075E */
  580. label00000736:
  581. 00000736  302E 0008                move.w     D0, [A6 + 0x8]
  582. 0000073A  5440                     addq.w     D0, 2
  583. 0000073C  E748                     lsl        D0.w, 3
  584. 0000073E  41ED E33A                lea.l      A0, [A5 - 0x1CC6]
  585. 00000742  3F30 0000                move.w     -[A7], [A0 + D0.w]
  586. 00000746  302E 0008                move.w     D0, [A6 + 0x8]
  587. 0000074A  5440                     addq.w     D0, 2
  588. 0000074C  E748                     lsl        D0.w, 3
  589. 0000074E  41ED E338                lea.l      A0, [A5 - 0x1CC8]
  590. 00000752  3230 0000                move.w     D1, [A0 + D0.w]
  591. 00000756  0441 0016                subi.w     D1, 0x16
  592. 0000075A  3F01                     move.w     -[A7], D1
  593. 0000075C  A891                     syscall    LineTo
  594. label0000075E:
  595. 0000075E  A89E                     syscall    PenNormal
  596. 00000760  6000 00B4                bra        +0xB6 /* 00000816 */
  597. label00000764:
  598. 00000764  3F3C 0002                move.w     -[A7], 0x2
  599. 00000768  3F3C 0002                move.w     -[A7], 0x2
  600. 0000076C  A89B                     syscall    PenSize
  601. 0000076E  3F3C 000B                move.w     -[A7], 0xB
  602. 00000772  A89C                     syscall    PenMode
  603. 00000774  302E 0008                move.w     D0, [A6 + 0x8]
  604. 00000778  5240                     addq.w     D0, 1
  605. 0000077A  E748                     lsl        D0.w, 3
  606. 0000077C  41ED E336                lea.l      A0, [A5 - 0x1CCA]
  607. 00000780  3F30 0000                move.w     -[A7], [A0 + D0.w]
  608. 00000784  302E 0008                move.w     D0, [A6 + 0x8]
  609. 00000788  5240                     addq.w     D0, 1
  610. 0000078A  E748                     lsl        D0.w, 3
  611. 0000078C  41ED E338                lea.l      A0, [A5 - 0x1CC8]
  612. 00000790  3230 0000                move.w     D1, [A0 + D0.w]
  613. 00000794  0441 0016                subi.w     D1, 0x16
  614. 00000798  3F01                     move.w     -[A7], D1
  615. 0000079A  A893                     syscall    MoveTo
  616. 0000079C  302E 0008                move.w     D0, [A6 + 0x8]
  617. 000007A0  5240                     addq.w     D0, 1
  618. 000007A2  E748                     lsl        D0.w, 3
  619. 000007A4  322E 0008                move.w     D1, [A6 + 0x8]
  620. 000007A8  5441                     addq.w     D1, 2
  621. 000007AA  E749                     lsl        D1.w, 3
  622. 000007AC  41ED E338                lea.l      A0, [A5 - 0x1CC8]
  623. 000007B0  3430 0000                move.w     D2, [A0 + D0.w]
  624. 000007B4  41ED E338                lea.l      A0, [A5 - 0x1CC8]
  625. 000007B8  B470 1000                cmp.w      D2, [A0 + D1.w]
  626. 000007BC  6600 002E                bne        +0x30 /* 000007EC */
  627. 000007C0  302E 0008                move.w     D0, [A6 + 0x8]
  628. 000007C4  5440                     addq.w     D0, 2
  629. 000007C6  E748                     lsl        D0.w, 3
  630. 000007C8  41ED E33A                lea.l      A0, [A5 - 0x1CC6]
  631. 000007CC  3F30 0000                move.w     -[A7], [A0 + D0.w]
  632. 000007D0  302E 0008                move.w     D0, [A6 + 0x8]
  633. 000007D4  5440                     addq.w     D0, 2
  634. 000007D6  E748                     lsl        D0.w, 3
  635. 000007D8  41ED E338                lea.l      A0, [A5 - 0x1CC8]
  636. 000007DC  3230 0000                move.w     D1, [A0 + D0.w]
  637. 000007E0  0441 0016                subi.w     D1, 0x16
  638. 000007E4  3F01                     move.w     -[A7], D1
  639. 000007E6  A891                     syscall    LineTo
  640. 000007E8  6000 002A                bra        +0x2C /* 00000814 */
  641. label000007EC:
  642. 000007EC  302E 0008                move.w     D0, [A6 + 0x8]
  643. 000007F0  5240                     addq.w     D0, 1
  644. 000007F2  E748                     lsl        D0.w, 3
  645. 000007F4  41ED E33A                lea.l      A0, [A5 - 0x1CC6]
  646. 000007F8  3F30 0000                move.w     -[A7], [A0 + D0.w]
  647. 000007FC  302E 0008                move.w     D0, [A6 + 0x8]
  648. 00000800  5240                     addq.w     D0, 1
  649. 00000802  E748                     lsl        D0.w, 3
  650. 00000804  41ED E338                lea.l      A0, [A5 - 0x1CC8]
  651. 00000808  3230 0000                move.w     D1, [A0 + D0.w]
  652. 0000080C  0441 0016                subi.w     D1, 0x16
  653. 00000810  3F01                     move.w     -[A7], D1
  654. 00000812  A891                     syscall    LineTo
  655. label00000814:
  656. 00000814  A89E                     syscall    PenNormal
  657. label00000816:
  658. 00000816  4CDF 0008                movem.l    D3, [A7]+
  659. 0000081A  4E5E                     unlink     A6
  660. 0000081C  205F                     movea.l    A0, [A7]+
  661. 0000081E  548F                     addq.l     A7, 2
  662. 00000820  4ED0                     jmp        [A0]
  663.